home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbfwds.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-02-16  |  2.0 KB  |  76 lines
  1. (*===========================================================================*)
  2. (* Forward task -- Slave                                                     *)
  3. (*                                                                           *)
  4. (*   Copyright 1988, 1989, 1990, 1991, 1992 by H. Roy Engehausen.  All       *)
  5. (*   rights reserved.                                                        *)
  6. (*                                                                           *)
  7. (*===========================================================================*)
  8.  
  9. {$O+}
  10.  
  11. {$DEFINE POINT_CHK}
  12. {$UNDEF  DEBUG_SIZE} (* Debug SIZE operand *)
  13. {$UNDEF  DEBUG_TYPE} (* Debug TYPE operand *)
  14. {$UNDEF  DEBUG_T}    (* Debug T statement  *)
  15. {$UNDEF  DEBUG_SCR}  (* Debug scripts      *)
  16. {$UNDEF  DEBUG_PORT} (* Debug port switch  *)
  17.  
  18. UNIT BBFWDS;
  19.  
  20. INTERFACE
  21.  
  22. USES
  23.   bbfwdd;
  24.  
  25. PROCEDURE forward_to_remote;
  26. PROCEDURE forward_main   (path_common : path_block_ptr);
  27. PROCEDURE forward_loop   (path_common : path_block_ptr);
  28. FUNCTION  reverse_forward : BOOLEAN;
  29. FUNCTION  forward_time_script(path_common : path_block_ptr) : BOOLEAN;
  30.  
  31. VAR
  32.   path_common_temp : path_block_ptr;
  33.  
  34. IMPLEMENTATION
  35.  
  36. USES
  37.   bbanswer,
  38.   bbbpa,
  39.   bbdummy,
  40.   bbfssf,
  41.   bbfu,
  42.   bbfwdp,
  43.   bbfwdr,
  44.   bbfwdt,
  45.   bblc,
  46.   bblog,
  47.   bbmdata,
  48.   bbmess,
  49.   bbmf,
  50.   bbmisc,
  51.   bbmisc3,
  52.   bbmisc4,
  53.   bbmisc5,
  54.   bbrdata,
  55.   bbsdata,
  56.   bbsema2,
  57.   bbsess,
  58.   bbsmc,
  59.   bbsrt,
  60.   bbstack,
  61.   bbstr,
  62.   bbtask,
  63.   bbtime,
  64.   bbtrace,
  65.   bbwin,
  66.   match;
  67.  
  68. {$I BBFWDST.PAS}             (* Handle the forward script lines for TIME     *)
  69. {$I BBFWDSS.PAS}             (* Handle the forward script lines              *)
  70. {$I BBFWDSL.PAS}             (* Forward loop                                 *)
  71. {$I BBFWDSM.PAS}             (* Main forward                                 *)
  72. {$I BBFWDSR.PAS}             (* Slave task start                             *)
  73. {$I BBRFWD.PAS}              (* Reverse forward                              *)
  74.  
  75. END.
  76.